home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / DFRDCOL.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  2KB  |  92 lines

  1. ; TIMWIN Demo program 05/30/92       (c) TEA 1992
  2. ;
  3. ;dfrdcol  --  Free running colour DEMO 
  4. ;
  5. #define DfrdColour          1100
  6. #define Dfrd256Col          1110
  7. #define Dfrd4096Col         1120
  8. #define Dfrd256VGA          1130
  9. #define DfrdDithering       1140
  10.  
  11. #include timdefs.h
  12.  
  13. parms
  14.  int imode
  15.  file timhelp
  16.  int hmode
  17. endparms
  18.  
  19. int choice
  20. int nred = 1
  21. int ngreen = 1
  22. int nblue = 1
  23. int tmp, imgpresent
  24. int numdest = Dfrd256Col
  25. file destim = "h"
  26. file basename = "baboon"
  27.  
  28.  
  29. help timhelp DfrdColour 2
  30. imgpresent = chk copy missr a  ;test availability colour version of image 'miss'
  31. print @cb2 " "
  32. cls
  33. repeat      ;until
  34.   scrs 1, 1
  35.  print @i @8 "TIMWIN Colour  -  Choose one of the following: " @r
  36.  print @cb2 @cf0 @8 "Return to the previous menu. . . . . . . . . . 0"  @r
  37.  print @cb3 @8 "Specify source image:"
  38.  print @cb2 @14     "BABOON . . . . . . . . . . . . . . . . . 1" 
  39. if imgpresent == 0
  40.  print @cb2 @14     "MISS   . . . . . . . . . . . . . . . . . 2" 
  41. endif
  42.  print @cb3 @8 "Specify display method:"
  43.  print @cb2 @14     "Dithering  . . . . . . . . . . . . . . . 3" 
  44.  print @cb2 @14     "256 colours  . . . . . . . . . . . . . . 4"
  45.  print @cb2 @14     "4096 colours (12-bit FG only). . . . . . 5" 
  46.  print @cb3 @8 "Specify destination:" 
  47.  print @cb2 @14     "Frame grabber image  . . . . . . . . . . 6"
  48.  print @cb2 @14     "Windows image  . . . . . . . . . . . . . 7" 
  49.  
  50.  print @cb1 @8      "Go!  . . . . . . . . . . . . . . . . . . . . . 9", @r @cb2
  51.  choice = "        Enter your choice . . . . . . . . . . . . . > "
  52. print @cb2 " "
  53.  
  54.  switch choice
  55.     case 1:
  56.       basename = "baboon"
  57.     case 2:
  58.       basename = "miss"
  59.     case 3:
  60.       help timhelp DfrdDithering 2
  61.       nred = ngreen = nblue = 1
  62.     case 4:
  63.       help timhelp numdest 2
  64.       nred = nblue = 6
  65.       ngreen = 7
  66.     case 5:
  67.       help timhelp Dfrd4096Col 2
  68.       nred = ngreen = nblue = 16
  69.     case 6:
  70.       numdest = Dfrd256Col
  71.       dest p
  72.       era
  73.       zoom 1
  74.       destim = "p"
  75.     case 7:
  76.       numdest = Dfrd256VGA
  77.       dest h
  78.       era 
  79.       destim = "h"
  80.     case 9
  81.       if (tmp = run coluniv destim basename nred ngreen nblue) > 0
  82.         pause
  83.         cls
  84.       endif
  85.   endsw
  86.  
  87.  
  88. until choice == 0
  89. print @n " "
  90. cls
  91. stop
  92.